Option Explicit
Sub Q_Sample007()
    ']wޥζMicrosoft PowerPoint 10.0 Object Library
    Dim myPpApp As PowerPoint.Application
    Dim myPpPrs As PowerPoint.Presentation
    'wnƻsϪ
    Set myPpApp = CreateObject("PowerPoint.Application")
    myPpApp.Visible = True
    Set myPpPrs = myPpApp.Presentations.Add
    Worksheets(1).ChartObjects(1).Copy
    With myPpPrs
        .Slides.Add(Index:=1, Layout:=ppLayoutBlank).Shapes.Paste
        .PrintOut
        Application.Wait Now() + TimeValue("00:00:03")
        .Close
    End With
    myPpApp.Quit
    Set myPpPrs = Nothing				'
    Set myPpApp = Nothing
End Sub
